home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Sound / Utilities / MIDI Museum 1.10 Folder / Protocoles / MT32 < prev    next >
Text File  |  1994-04-09  |  1KB  |  34 lines
  1. Script( "MT32")
  2.  
  3. Send:
  4.     send( 0xf0 0x41 0x10 0x16 0x40 0x08 0x00 0x00 0x01 0x00 0x00 0x77 0xf7 )
  5.     rec( 0xf0 0x41 0x10 0x16 0x43 0xf7 )
  6.     repeat( 16384,
  7.         send( 0xf0 0x41 0x10 0x16 0x42 $( 260 ) 0xf7 )
  8.         rec( 0xf0 0x41 0x10 0x16 0x43 0xf7 )
  9.     )
  10.  
  11.     send( 0xf0 0x41 0x10 0x16 0x40 0x05 0x00 0x00 0x00 0x08 0x00 0x73 0xf7 )
  12.     rec( 0xf0 0x41 0x10 0x16 0x43 0xf7 )
  13.     repeat( 1024,
  14.         send( 0xf0 0x41 0x10 0x16 0x42 $( 260 ) 0xf7 )
  15.         rec( 0xf0 0x41 0x10 0x16 0x43 0xf7 )
  16.     )
  17.  
  18.     send( 0xf0 0x41 0x10 0x16 0x45 0xf7 )
  19.     rec( 0xf0 0x10 0x16 0x43 0xf7 )
  20.  
  21. rec:
  22.     send( 0xf0 0x41 0x10 0x16 0x41 0x08 0x00 0x00 0x01 0x00 0x00 0x77 0xf7 )
  23.     repeat( 16384,
  24.         rec( 0xf0 0x41 0x10 0x16 0x42 $( 260 ) 0xf7 )
  25.         send( 0xf0 0x41 0x10 0x16 0x43 0xf7 )
  26.     )
  27.  
  28.     send( 0xf0 0x41 0x10 0x16 0x41 0x05 0x00 0x00 0x00 0x08 0x00 0x73 0xf7 )
  29.     repeat( 1024,
  30.         rec( 0xf0 0x41 0x10 0x16 0x42 $( 260 ) 0xf7 )
  31.         send( 0xf0 0x41 0x10 0x16 0x43 0xf7 )
  32.     )
  33.  
  34.     send( 0xf0 0x41 0x10 0x16 0x43 0xf7 )